home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.0 / stk-3 / blt-for-STk-3.0 / blt-1.9 / demos / grconf.tcl < prev    next >
Encoding:
Text File  |  1995-07-01  |  38.5 KB  |  1,193 lines
  1. #!../blt_wish -f
  2.  
  3. if [file exists ../library] {
  4.     set blt_library ../library
  5. }
  6. set graph {}
  7. set interp {}
  8. set class {}
  9. set table(dummy) {}
  10. set setProc(dummy) {}
  11. set getProc(dummy) {}
  12. set row 0
  13. set column 0
  14.  
  15. wm title . "Graph Configure Tool"
  16.  
  17. option add *Radiobutton.font *New*Century*Schoolbook-Medium*-R-*-12-*
  18. option add *Radiobutton.relief flat
  19. #option add *Entry.font *Courier-Medium-R-*-12-*
  20. option add *Label.font *Helvetica-Bold-R-*-12-*
  21. option add *title.font *Helvetica-Bold-R-*-14-*
  22. option add *Entry.font *Courier-Medium-R-*-12-*
  23. option add *Scale.length 120
  24.  
  25. #
  26. #  Controls for various options
  27. # 
  28.  
  29. proc GetOptions { options arrayVar defaultsVar } {
  30.     upvar $arrayVar array
  31.     upvar $defaultsVar defaults
  32.  
  33.     foreach item $options {
  34.     if {[llength $item] < 4} {
  35.         continue
  36.     }
  37.     set name [lindex $item 0] 
  38.     set value [lindex $item 4]
  39.     set array($name) $value
  40.     }
  41.     set names [lsort [array names array]]
  42.     set defaults {}
  43.     foreach i $names {
  44.     lappend defaults $i $array($i)
  45.     }
  46. }
  47.  
  48. proc AnchorControl { name option value } {
  49.     global row column table setProc 
  50.  
  51.     label $table($name).label$option -text $option 
  52.     frame $table($name).frame$option 
  53.     set frame $table($name).frame$option 
  54.     set variable $name$option
  55.  
  56.     set count 0
  57.     foreach i { nw n ne w center e sw s se } {
  58.     radiobutton $frame.rbutton_$i -variable $variable -value $i -text $i \
  59.         -command "$setProc($name) $option \$\{$variable\}"
  60.     blt_table $frame $frame.rbutton_$i $count/3,$count%3 -anchor w
  61.     incr count
  62.     }
  63.     blt_table $table($name) \
  64.     $table($name).label$option $row,$column -anchor w \
  65.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  66.  
  67.     global $variable
  68.     set $variable $value
  69.     incr row 
  70. }
  71.  
  72. proc AnchorReset { name option value } {
  73.     global setProc 
  74.  
  75.     set variable $name$option
  76.     global $variable
  77.     set $variable $value
  78.     $setProc($name) $option $value
  79. }
  80.  
  81. proc ReliefControl { name option value } {
  82.     global row column table setProc
  83.  
  84.     label $table($name).label$option -text $option 
  85.     frame $table($name).frame$option 
  86.     set frame $table($name).frame$option 
  87.     set variable $name$option
  88.  
  89.     set count 0
  90.     foreach i { sunken groove flat ridge raised } {
  91.     radiobutton $frame.rbutton_$i -variable $variable -value $i -text $i \
  92.         -command "$setProc($name) $option \$\{$variable\}"
  93.     blt_table $frame $frame.rbutton_$i $count/2,$count%2 -anchor w
  94.     incr count
  95.     }
  96.     blt_table $table($name) \
  97.     $table($name).label$option $row,$column -anchor w \
  98.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  99.     
  100.     global $variable
  101.     set $variable $value
  102.     incr row 
  103. }
  104.  
  105. proc ReliefReset { name option value } {
  106.     global setProc
  107.     set variable $name$option
  108.     global $variable
  109.     set $variable $value
  110.     $setProc($name) $option $value
  111. }
  112.  
  113.  
  114. proc SymbolControl { name option value } {
  115.     global row column table setProc
  116.  
  117.     label $table($name).label$option -text $option 
  118.     frame $table($name).frame$option 
  119.     set frame $table($name).frame$option 
  120.     set variable $name$option
  121.  
  122.     set count 0
  123.     foreach i { Line Circle Cross Diamond Plus Square Scross Splus } {
  124.     radiobutton $frame.rbutton_$i -variable $variable -value $i -text $i \
  125.         -command "$setProc($name) $option \$\{$variable\}"
  126.     blt_table $frame $frame.rbutton_$i $count/3,$count%3 -anchor w
  127.     incr count
  128.     }
  129.     blt_table $table($name) \
  130.     $table($name).label$option $row,$column -anchor w \
  131.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  132.     
  133.     global $variable
  134.     set $variable $value
  135.     incr row 
  136. }
  137.  
  138. proc SymbolReset { name option value } {
  139.     global setProc
  140.     set variable $name$option
  141.     global $variable
  142.     set $variable $value
  143.     $setProc($name) $option $value
  144. }
  145.  
  146. proc BooleanControl { name option value } {
  147.     global row column table setProc
  148.  
  149.     label $table($name).label$option -text $option 
  150.     frame $table($name).frame$option 
  151.     set frame $table($name).frame$option 
  152.     set variable $name$option
  153.  
  154.     radiobutton $frame.rbutton_true -text "true" -variable $variable \
  155.     -command "$setProc($name) $option \$\{$variable\}" \
  156.     -value 1 
  157.     radiobutton $frame.rbutton_false  -text "false" -variable $variable \
  158.     -command "$setProc($name) $option \$\{$variable\}" \
  159.     -value 0
  160.     blt_table $frame \
  161.     $frame.rbutton_true  0,0 -anchor w \
  162.     $frame.rbutton_false 0,1 -anchor w
  163.  
  164.     blt_table $table($name) \
  165.     $table($name).label$option $row,$column -anchor w \
  166.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  167.  
  168.     global $variable
  169.     set $variable $value
  170.     incr row 
  171. }
  172.  
  173. proc BooleanReset { name option value } {
  174.     global setProc
  175.     set variable $name$option
  176.     global $variable
  177.     set $variable $value
  178.     $setProc($name) $option $value
  179. }
  180.  
  181. proc SetInt { name option value } {
  182.     global table setProc
  183.  
  184.     $setProc($name) $option $value
  185.     $table($name).frame$option.scale set $value
  186.     $table($name).frame$option.entry delete 0 end
  187.     $table($name).frame$option.entry insert 0 $value
  188. }
  189.  
  190. proc IntControl { name option from to value } {
  191.     global row column table 
  192.  
  193.     label $table($name).label$option -text $option 
  194.     frame $table($name).frame$option
  195.     set frame $table($name).frame$option
  196.     entry $frame.entry -relief sunken -width 6
  197.     scale $frame.scale -from $from -to $to \
  198.     -orient horizontal  -bg bisque1 -showvalue 0 
  199.     blt_table $frame \
  200.     $frame.entry 0,0 -fill x \
  201.     $frame.scale 0,1  -fill x
  202.     $frame.scale set $value
  203.     $frame.scale configure -command "SetInt $name $option "
  204.     $frame.entry insert 0 $value
  205.     bind $frame.entry <Return> "SetInt $name $option \[%W get\]"
  206.     blt_table $table($name) \
  207.     $table($name).label$option $row,$column -anchor w \
  208.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x 
  209.     incr row 
  210. }
  211.  
  212. proc IntReset { name option value } {
  213.     global setProc
  214.  
  215.     SetInt $name $option $value
  216.     $setProc($name) $option $value
  217. }
  218.  
  219. proc SetFloatFromEntry { name option scale value } {
  220.     global table setProc
  221.  
  222.     $setProc($name) $option $value
  223.     $table($name).frame$option.scale set [expr round($value/$scale)]
  224.     $table($name).frame$option.entry delete 0 end
  225.     $table($name).frame$option.entry insert 0 $value
  226. }
  227.  
  228. proc SetFloatFromScale { name option scale value } {
  229.     global table setProc
  230.  
  231.     set x [expr $scale*$value]
  232.     $setProc($name) $option $x 
  233.     $table($name).frame$option.scale set $value
  234.     $table($name).frame$option.entry delete 0 end
  235.     $table($name).frame$option.entry insert 0 $x
  236. }
  237.  
  238. proc FloatControl { name option from to scale value } {
  239.     global row column table setProc
  240.  
  241.     label $table($name).label$option -text $option 
  242.     frame $table($name).frame$option
  243.     set frame $table($name).frame$option
  244.     entry $frame.entry -relief sunken -width 6
  245.     scale $frame.scale -from $from -to $to \
  246.     -orient horizontal  -bg bisque1 -showvalue 0  \
  247.     -command "SetFloatFromScale $name $option $scale"
  248.     blt_table $frame \
  249.     $frame.entry 0,0 -fill x \
  250.     $frame.scale 0,1  -fill x
  251.     $frame.scale set [expr round($value/$scale)]
  252.     $frame.entry insert 0 $value
  253.     bind $frame.entry <Return> \
  254.     "SetFloatFromEntry $name $option $scale \[%W get\]"
  255.     blt_table $table($name) \
  256.     $table($name).label$option $row,$column -anchor w \
  257.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x 
  258.     incr row 
  259. }
  260.  
  261. proc FloatReset { name option scale value } {
  262.     global setProc
  263.     
  264.     SetFloatFromEntry $name $option $scale $value 
  265.     $setProc($name) $option $value
  266. }
  267.  
  268.  
  269. proc RGBInit {} {
  270.     global RGB
  271.  
  272.     set RGB(dummy) 0
  273.     if ![catch { exec showrgb } colorList] {
  274.     set colorList [split $colorList \n]
  275.     foreach i $colorList {
  276.         set parts [split $i \t]
  277.         set name [lindex $parts 2]
  278.         set RGB($name) [lindex $parts 0]
  279.     }
  280.     }
  281. }
  282.  
  283. proc RGBSetColorFromScale { name option color intensity } {
  284.     global rgb-$name$option setProc table
  285.  
  286.     set rgb-$name${option}($color) $intensity
  287.     set color [format #%02x%02x%02x [set rgb-$name${option}(red)] \
  288.            [set rgb-$name${option}(green)] [set rgb-$name${option}(blue)]]
  289.     $table($name).frame$option.entry delete 0 end
  290.     $table($name).frame$option.entry insert 0 $color
  291.     $setProc($name) $option $color
  292. }
  293.  
  294. proc RGBInitControls { name option color } {
  295.     global rgb-$name$option table RGB
  296.  
  297.     set frame $table($name).frame$option
  298.     $frame.entry delete 0 end
  299.     $frame.entry insert 0 $color
  300.     if { [string match #* $color] } {
  301.     set rgb-${name}${option}(red) 0x[string range $color 1 2]
  302.     set rgb-${name}${option}(green) 0x[string range $color 3 4]
  303.     set rgb-${name}${option}(blue) 0x[string range $color 5 6]
  304.     } elseif { [info exists RGB($color)] } {
  305.     set info $RGB($color)
  306.     set rgb-${name}${option}(red) [lindex $info 0]
  307.     set rgb-${name}${option}(green) [lindex $info 1]
  308.     set rgb-${name}${option}(blue) [lindex $info 2]
  309.     } else {
  310.     set rgb-${name}${option}(red) 0
  311.     set rgb-${name}${option}(green) 0
  312.     set rgb-${name}${option}(blue) 0
  313.     return
  314.     }
  315.     foreach i { red green blue } {
  316.     $frame.scale_$i set [set rgb-${name}${option}($i)]
  317.     }
  318. }
  319.  
  320. proc RGBSetColorFromEntry { name option color } {
  321.     global setProc table 
  322.  
  323.     RGBInitControls $name $option $color
  324.     $setProc($name) $option $color
  325. }
  326.  
  327. proc RGBColorControl { name option value } {
  328.     global row column table 
  329.     
  330.     label $table($name).label$option -text $option 
  331.     frame $table($name).frame$option 
  332.     set frame $table($name).frame$option 
  333.     
  334.     entry $frame.entry -relief sunken -width 8
  335.     scale $frame.scale_red -from 0 -to 255 -orient horizontal -showvalue 0 \
  336.     -bd 0 -command "RGBSetColorFromScale $name $option red"
  337.     scale $frame.scale_green -from 0 -to 255 -orient horizontal -showvalue 0 \
  338.     -bd 0 -command "RGBSetColorFromScale $name $option green"
  339.     scale $frame.scale_blue -from 0 -to 255 -orient horizontal -showvalue 0 \
  340.     -bd 0 -command "RGBSetColorFromScale $name $option blue"
  341.     blt_table $frame \
  342.     $frame.entry 0,0 -rspan 3 \
  343.     $frame.scale_red 0,1 -fill both  \
  344.     $frame.scale_green 1,1 -fill both \
  345.     $frame.scale_blue 2,1 -fill both 
  346.  
  347.     bind $frame.entry <Return> \
  348.     "RGBSetColorFromEntry $name $option \[%W get\]"
  349.     RGBInitControls $name $option $value
  350.     blt_table $table($name) \
  351.     $table($name).label$option $row,$column -anchor w \
  352.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  353.     incr row 
  354. }
  355.  
  356. proc RGBColorReset { name option value } {
  357.     RGBSetColorFromEntry $name $option $value
  358. }
  359.  
  360. proc EntryControl { name option value } {
  361.     global row column table setProc
  362.  
  363.     label $table($name).label$option -text $option 
  364.     entry $table($name).entry$option -relief sunken
  365.     bind $table($name).entry$option <Return> \
  366.     "$setProc($name) $option \[%W get\]"
  367.     $table($name).entry$option insert 0 $value
  368.  
  369.     blt_table $table($name) \
  370.     $table($name).label$option $row,$column -anchor w \
  371.     $table($name).entry$option $row,$column+1 -cspan 2 -fill x
  372.     incr row 
  373. }
  374.  
  375. proc EntryReset { name option value } {
  376.     global table setProc
  377.  
  378.     $table($name).entry$option delete 0 end
  379.     $table($name).entry$option insert 0 $value
  380.     $setProc($name) $option $value
  381. }
  382.  
  383. proc FontControl { name option value } {
  384.     global row column table setProc
  385.  
  386.     label $table($name).label$option -text $option 
  387.     frame $table($name).frame$option 
  388.     set frame $table($name).frame$option 
  389.  
  390.     entry $frame.entry -relief sunken
  391.     frame $frame.palette -geom 15x15 -relief raised -bd 2
  392.     blt_table $frame \
  393.     $frame.entry 0,0 -fill x \
  394.     $frame.palette 0,1 -padx 2  -reqwidth 15 -fill y
  395.  
  396.     blt_table column $frame configure 1 -resize none
  397.     $frame.entry insert 0 $value
  398.     bind $frame.entry <Return> "$setProc($name) $option \[%W get\]"
  399.  
  400.     blt_table $table($name) \
  401.     $table($name).label$option $row,$column -anchor w \
  402.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  403.     incr row 
  404. }
  405.  
  406.  
  407. proc FontReset { name option value } {
  408.     global table setProc
  409.  
  410.     $table($name).frame$option.entry delete 0 end
  411.     $table($name).frame$option.entry insert 0 $value
  412.     $setProc($name) $option $value
  413. }
  414.  
  415.  
  416. proc TraceReset { name option value } {
  417.     global setProc
  418.     set variable $name$option
  419.     global $variable
  420.     set $variable $value
  421.     $setProc($name) $option $value
  422. }
  423.  
  424. proc TraceControl { name option value } {
  425.     global row column table setProc
  426.  
  427.     label $table($name).label$option -text $option 
  428.     frame $table($name).frame$option 
  429.     set frame $table($name).frame$option 
  430.     set variable $name$option
  431.  
  432.     radiobutton $frame.rbutton_dec -text "decreasing" -variable $variable \
  433.     -command "$setProc($name) $option \$\{$variable\}" \
  434.     -value "decreasing"
  435.     radiobutton $frame.rbutton_both -text "both" -variable $variable \
  436.     -command "$setProc($name) $option \$\{$variable\}" \
  437.     -value "both"
  438.     radiobutton $frame.rbutton_inc -text "increasing" -variable $variable \
  439.     -command "$setProc($name) $option \$\{$variable\}" \
  440.     -value "increasing" 
  441.     blt_table $frame \
  442.     $frame.rbutton_both 0,0 -anchor w \
  443.     $frame.rbutton_dec 0,1 -anchor w \
  444.     $frame.rbutton_inc 0,2 -anchor w 
  445.  
  446.     blt_table $table($name) \
  447.     $table($name).label$option $row,$column -anchor w \
  448.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  449.  
  450.     global $variable
  451.     set $variable $value
  452.     incr row 
  453. }
  454.  
  455.  
  456. proc MapXAxisControl { name option value } {
  457.     global row column table setProc
  458.  
  459.     label $table($name).label$option -text $option 
  460.     frame $table($name).frame$option 
  461.     set frame $table($name).frame$option 
  462.     set variable $name$option
  463.  
  464.     radiobutton $frame.rbutton_x1 -text "x" -variable $variable \
  465.     -command "$setProc($name) $option \$\{$variable\}" \
  466.     -value "x" 
  467.     radiobutton $frame.rbutton_x2 -text "x2" -variable $variable \
  468.     -command "$setProc($name) $option \$\{$variable\}" \
  469.     -value "x2"
  470.     radiobutton $frame.rbutton_both -text "both" -variable $variable \
  471.     -command "$setProc($name) $option \$\{$variable\}" \
  472.     -value "both"
  473.     blt_table $frame \
  474.     $frame.rbutton_x1 0,0 -anchor w \
  475.     $frame.rbutton_x2 0,1 -anchor w \
  476.     $frame.rbutton_both 0,2 -anchor w
  477.  
  478.     blt_table $table($name) \
  479.     $table($name).label$option $row,$column -anchor w \
  480.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  481.  
  482.     global $variable
  483.     set $variable $value
  484.     incr row 
  485. }
  486.  
  487. proc MapXAxisReset { name option value } {
  488.     global setProc
  489.     set variable $name$option
  490.     global $variable
  491.     set $variable $value
  492.     $setProc($name) $option $value
  493. }
  494.  
  495. proc MapYAxisControl { name option value } {
  496.     global row column table setProc
  497.  
  498.     label $table($name).label$option -text $option 
  499.     frame $table($name).frame$option 
  500.     set frame $table($name).frame$option 
  501.     set variable $name$option
  502.  
  503.     radiobutton $frame.rbutton_y1 -text "y" -variable $variable \
  504.     -command "$setProc($name) $option \$\{$variable\}" \
  505.     -value "y" 
  506.     radiobutton $frame.rbutton_y2 -text "y2" -variable $variable \
  507.     -command "$setProc($name) $option \$\{$variable\}" \
  508.     -value "y2"
  509.     radiobutton $frame.rbutton_both -text "both" -variable $variable \
  510.     -command "$setProc($name) $option \$\{$variable\}" \
  511.     -value "both"
  512.     blt_table $frame \
  513.     $frame.rbutton_y1 0,0 -anchor w \
  514.     $frame.rbutton_y2 0,1 -anchor w \
  515.     $frame.rbutton_both 0,2 -anchor w
  516.  
  517.     blt_table $table($name) \
  518.     $table($name).label$option $row,$column -anchor w \
  519.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  520.  
  521.     global $variable
  522.     set $variable $value
  523.     incr row 
  524. }
  525.  
  526. proc MapYAxisReset { name option value } {
  527.     global setProc
  528.     set variable $name$option
  529.     global $variable
  530.     set $variable $value
  531.     $setProc($name) $option $value
  532. }
  533.  
  534. #
  535. #
  536. # Component configuration routines
  537. #
  538. #
  539.  
  540. proc GraphConfigure { interpName graphName } {
  541.     global graph interp class RGB
  542.  
  543.     if ![info exists RGB] {
  544.     RGBInit
  545.     }
  546.     set graph $graphName
  547.     set interp $interpName
  548.     if { $interp == "" } {
  549.     set interp [winfo name .]
  550.     }
  551.     if [catch [list send $interp winfo class $graph] class ] {
  552.     puts stderr "\"send\" disabled: can't communicate with \"$interp\""
  553.     puts stderr $class
  554.     exit 1
  555.     }
  556. }
  557.  
  558. proc ResetGraph {} {
  559.     global graphOptions graphDefaults graph interp class
  560.  
  561.     RGBColorReset graph -background $graphOptions(-background)
  562.     IntReset graph -borderwidth $graphOptions(-borderwidth)
  563.     IntReset graph -bottommargin $graphOptions(-bottommargin)
  564.     BooleanReset graph -bufferelements $graphOptions(-bufferelements)
  565.     EntryReset graph -cursor $graphOptions(-cursor)
  566.     EntryReset graph -font $graphOptions(-font)
  567.     RGBColorReset graph -foreground $graphOptions(-foreground)
  568.     IntReset graph -halo $graphOptions(-halo)
  569.     IntReset graph -height $graphOptions(-height)
  570.     BooleanReset graph -invertxy $graphOptions(-invertxy)
  571.     IntReset graph -leftmargin $graphOptions(-leftmargin)
  572.     RGBColorReset graph -plotbackground $graphOptions(-plotbackground)
  573.     IntReset graph -plotborderwidth $graphOptions(-plotborderwidth)
  574.     ReliefReset graph -plotrelief $graphOptions(-plotrelief)
  575.     ReliefReset graph -relief $graphOptions(-relief)
  576.     IntReset graph -rightmargin $graphOptions(-rightmargin)
  577.     EntryReset graph -title $graphOptions(-title)
  578.     IntReset graph -topmargin $graphOptions(-topmargin)
  579.     IntReset graph -width $graphOptions(-width)
  580.     send $interp $graph configure $graphDefaults
  581. }
  582.  
  583.  
  584. proc SetGraph { option value } {
  585.     global graph interp
  586.     send $interp [list $graph configure $option $value]
  587. }
  588.  
  589. proc GetGraph {} {
  590.     global graph interp
  591.     send $interp [list $graph configure]
  592. }
  593.  
  594.  
  595. proc ConfigureGeneral {} {
  596.     global graphOptions graphDefaults class
  597.     global table row column setProc getProc 
  598.     
  599.     set name graph
  600.     if { [info command .$name] == ".$name" } {
  601.     destroy .$name
  602.     return
  603.     }
  604.     set row 2
  605.     set column 1
  606.     set setProc($name) SetGraph
  607.     set getProc($name) GetGraph
  608.  
  609.     GetOptions [$getProc($name)] graphOptions graphDefaults
  610.     set table($name) .$name
  611.     toplevel $table($name)
  612.     wm title .$name "General Configuration"
  613.     
  614.     frame $table($name).frame -relief groove -bd 2
  615.     label $table($name).title -text "General Configuration Options"
  616.     RGBColorControl graph -background $graphOptions(-background)
  617.     IntControl graph -borderwidth 0 10 $graphOptions(-borderwidth)
  618.     IntControl graph -bottommargin 0 100 $graphOptions(-bottommargin)
  619.     BooleanControl graph -bufferelements $graphOptions(-bufferelements)
  620.     EntryControl graph -cursor $graphOptions(-cursor)
  621.     EntryControl graph -font $graphOptions(-font)
  622.     RGBColorControl graph -foreground $graphOptions(-foreground)
  623.     IntControl graph -halo 0 100 $graphOptions(-halo)
  624.     IntControl graph -height 150 800 $graphOptions(-height)
  625.     set row 2
  626.     set column 5
  627.     BooleanControl graph -invertxy $graphOptions(-invertxy)
  628.     IntControl graph -leftmargin 0 100 $graphOptions(-leftmargin)
  629.     RGBColorControl graph -plotbackground $graphOptions(-plotbackground)
  630.     IntControl graph -plotborderwidth 0 10 $graphOptions(-plotborderwidth)
  631.     ReliefControl graph -plotrelief $graphOptions(-plotrelief)
  632.     ReliefControl graph -relief $graphOptions(-relief)
  633.     IntControl graph -rightmargin 0 100 $graphOptions(-rightmargin)
  634.     EntryControl graph -title $graphOptions(-title)
  635.     IntControl graph -topmargin 0 100 $graphOptions(-topmargin)
  636.     IntControl graph -width 150 800 $graphOptions(-width)
  637.  
  638.     button $table($name).button_done -text "done" \
  639.     -command "destroy .$name; set varGeneral 0"
  640.     button $table($name).button_reset -text "reset" \
  641.     -command "ResetGraph"
  642.     incr row
  643.     if { $row & 1 } {
  644.     incr row
  645.     }
  646.     blt_table $table($name) \
  647.     $table($name).frame 0,0 -cspan 24 -rspan $row -fill both \
  648.     -padx 4 -pady 4 \
  649.     $table($name).title         1,0 -cspan 24 \
  650.     $table($name).button_reset     $row,$column -reqwidth .7i -anchor w \
  651.     $table($name).button_done     $row,$column+1 -reqwidth .7i -anchor e
  652.     blt_table column $table($name) configure { 1 5 } -padx 5
  653.     blt_table row $table($name) configure all -pady 5
  654.     blt_table column $table($name) configure { 0 4 9 } -width 0.25i
  655.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  656.     blt_table row $table($name) configure { $row } -height {}
  657. }
  658.  
  659.  
  660. proc ResetAxis { axis } {
  661.     global axisOptions axisDefaults graph interp
  662.  
  663.     RGBColorReset axis -color $axisOptions(-color)
  664.     BooleanReset axis -descending $axisOptions(-descending)
  665.     EntryReset axis -font $axisOptions(-font)
  666.     IntReset axis -linewidth $axisOptions(-linewidth)
  667.     BooleanReset axis -logscale $axisOptions(-logscale)
  668.     BooleanReset axis -loose $axisOptions(-loose)
  669.     BooleanReset axis -mapped $axisOptions(-mapped)
  670.     EntryReset axis -max $axisOptions(-max)
  671.     EntryReset axis -min $axisOptions(-min)
  672.     FloatReset axis -rotate 1.0 $axisOptions(-rotate)
  673.     BooleanReset axis -showticks $axisOptions(-showticks)
  674.     FloatReset axis -stepsize 1.0 $axisOptions(-stepsize)
  675.     IntReset axis -subticks $axisOptions(-subticks)
  676.     IntReset axis -ticklength $axisOptions(-ticklength)
  677.     EntryReset axis -title $axisOptions(-title)
  678.     send $interp $graph $axis configure $axisDefaults
  679. }
  680.  
  681. proc GetAxis {} {
  682.     global axis graph interp
  683.     send $interp [list $graph $axis configure]
  684. }
  685.  
  686. proc SetAxisOptions { axis } {
  687.     global getProc axisOptions axisDefaults 
  688.     GetOptions [GetAxis] axisOptions axisDefaults
  689.     ResetAxis $axis
  690. }
  691.  
  692.  
  693. proc SetAxis { option value } {
  694.     global axis graph interp
  695.     send $interp [list $graph $axis configure $option $value]
  696. }
  697.  
  698. proc ConfigureAxis {} {
  699.     global axisOptions axisDefaults 
  700.     global table row column axis setProc getProc
  701.  
  702.     set name axis
  703.     if { [info command .$name] == ".$name" } {
  704.     destroy .$name
  705.     return
  706.     }
  707.     set row 3
  708.     set column 1
  709.     set axis xaxis
  710.     set setProc($name) SetAxis
  711.     set getProc($name) GetAxis
  712.  
  713.     GetOptions [$getProc($name)] axisOptions axisDefaults
  714.     set table($name) .$name
  715.     toplevel $table($name)
  716.     wm title .$name "Axis Configuration"
  717.  
  718.     frame $table($name).frame -relief groove -bd 2
  719.     label $table($name).title -text "Axis Configuration Options"
  720.     
  721.     frame $table($name).axis 
  722.     radiobutton $table($name).axis.x -text "x" -variable axis \
  723.     -value "xaxis" \
  724.     -command "SetAxisOptions xaxis" 
  725.  
  726.     radiobutton $table($name).axis.y -text "y" -variable axis \
  727.     -value "yaxis" \
  728.     -command "SetAxisOptions yaxis" 
  729.  
  730.     radiobutton $table($name).axis.x2 -text "x2" -variable axis \
  731.     -value "x2axis" \
  732.     -command "SetAxisOptions x2axis" 
  733.  
  734.     radiobutton $table($name).axis.y2 -text "y2" -variable axis \
  735.     -value "y2axis" \
  736.     -command "SetAxisOptions y2axis" 
  737.  
  738.     pack append $table($name).axis \
  739.     $table($name).axis.x { left expand fill } \
  740.     $table($name).axis.y { left expand fill } \
  741.     $table($name).axis.x2 { left expand fill } \
  742.     $table($name).axis.y2 { left expand fill } 
  743.  
  744.     RGBColorControl axis -color $axisOptions(-color)
  745.     BooleanControl axis -descending $axisOptions(-descending)
  746.     EntryControl axis -font $axisOptions(-font)
  747.     IntControl axis -linewidth 0 10 $axisOptions(-linewidth)
  748.     BooleanControl axis -logscale $axisOptions(-logscale)
  749.     BooleanControl axis -loose $axisOptions(-loose)
  750.     BooleanControl axis -mapped $axisOptions(-mapped)
  751.     EntryControl axis -max $axisOptions(-max)
  752.     EntryControl axis -min $axisOptions(-min)
  753.     FloatControl axis -rotate 0 360 1.0 $axisOptions(-rotate)
  754.     BooleanControl axis -showticks $axisOptions(-showticks)
  755.     FloatControl axis -stepsize 0 100 1.0 $axisOptions(-stepsize)
  756.     IntControl axis -subticks 0 10 $axisOptions(-subticks)
  757.     IntControl axis -ticklength -20 20 $axisOptions(-ticklength)
  758.     EntryControl axis -title $axisOptions(-title)
  759.     
  760.     button $table($name).button_done -text "done" \
  761.     -command "destroy .$name; set varAxis 0"
  762.     button $table($name).button_reset -text "reset" \
  763.     -command "ResetAxis $axis"
  764.     incr row
  765.     blt_table $table($name) \
  766.     $table($name).frame 0,0 -cspan 14 -rspan $row -fill both \
  767.     -padx 4 -pady 4 \
  768.     $table($name).title         1,0 -cspan 7 \
  769.     $table($name).axis        2,1 -fill x -cspan 3  \
  770.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  771.     $table($name).button_done     $row,3 -reqwidth .7i -anchor e
  772.     blt_table column $table($name) configure 1 -padx 5
  773.     blt_table row $table($name) configure all -pady 5
  774.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  775.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  776.     blt_table row $table($name) configure { $row } -height {}
  777. }
  778.  
  779.  
  780. proc ResetLegend {} {
  781.     global legendOptions legendDefaults graph interp
  782.  
  783.     RGBColorReset legend -activebackground $legendOptions(-activebackground)
  784.     IntReset legend -activeborderwidth $legendOptions(-activeborderwidth)
  785.     RGBColorReset legend -activeforeground $legendOptions(-activeforeground)
  786.     ReliefReset legend -activerelief $legendOptions(-activerelief)
  787.     AnchorReset legend -anchor $legendOptions(-anchor)
  788.     RGBColorReset legend -background $legendOptions(-background)
  789.     IntReset legend -borderwidth $legendOptions(-borderwidth)
  790.     EntryReset legend -font $legendOptions(-font)
  791.     RGBColorReset legend -foreground $legendOptions(-foreground)
  792.     IntReset legend -ipadx $legendOptions(-ipadx)
  793.     IntReset legend -ipady $legendOptions(-ipady)
  794.     BooleanReset legend -mapped $legendOptions(-mapped)
  795.     IntReset legend -padx $legendOptions(-padx)
  796.     IntReset legend -pady $legendOptions(-pady)
  797.     EntryReset legend -position $legendOptions(-position)
  798.     ReliefReset legend -relief $legendOptions(-relief)
  799.     send $interp $graph legend configure $legendDefaults
  800. }
  801.  
  802.  
  803. proc SetLegend { option value } {
  804.     global graph interp
  805.     send $interp [list $graph legend configure $option $value]
  806. }
  807.  
  808. proc GetLegend {} {
  809.     global graph interp
  810.     send $interp [list $graph legend configure]
  811. }
  812.  
  813. proc ConfigureLegend {} {
  814.     global legendOptions legendDefaults
  815.     global table row column setProc getProc
  816.  
  817.     set name legend
  818.     if { [info command .$name] == ".$name" } {
  819.     destroy .$name
  820.     return
  821.     }
  822.     set row 2
  823.     set column 1
  824.     set setProc($name) SetLegend
  825.     set getProc($name) GetLegend
  826.  
  827.     GetOptions [$getProc($name)] legendOptions legendDefaults
  828.     set table($name) .$name
  829.     toplevel $table($name)
  830.     wm title .$name "Legend Configuration"
  831.  
  832.     frame $table($name).frame -relief groove -bd 2
  833.     label $table($name).title -text "Legend Configuration Options"
  834.  
  835.     RGBColorControl legend -activebackground $legendOptions(-activebackground)
  836.     IntControl legend -activeborderwidth 0 10 \
  837.     $legendOptions(-activeborderwidth)
  838.     RGBColorControl legend -activeforeground $legendOptions(-activeforeground)
  839.     ReliefControl legend -activerelief $legendOptions(-activerelief)
  840.     AnchorControl legend -anchor $legendOptions(-anchor)
  841.     RGBColorControl legend -background $legendOptions(-background)
  842.     IntControl legend -borderwidth 0 10 $legendOptions(-borderwidth)
  843.     EntryControl legend -font $legendOptions(-font)
  844.     RGBColorControl legend -foreground $legendOptions(-foreground)
  845.     IntControl legend -ipadx 0 10 $legendOptions(-ipadx)
  846.     IntControl legend -ipady 0 10 $legendOptions(-ipady)
  847.     BooleanControl legend -mapped $legendOptions(-mapped)
  848.     IntControl legend -padx 0 10 $legendOptions(-padx)
  849.     IntControl legend -pady 0 10 $legendOptions(-pady)
  850.     EntryControl legend -position $legendOptions(-position)
  851.     ReliefControl legend -relief $legendOptions(-relief)
  852.  
  853.     button $table($name).button_done -text "done" \
  854.     -command "destroy .$name; set varLegend 0"
  855.     button $table($name).button_reset -text "reset" \
  856.     -command "ResetLegend"
  857.     incr row
  858.     blt_table $table($name) \
  859.     $table($name).frame 0,0 -cspan 5 -rspan $row -fill both \
  860.         -padx 4 -pady 4 \
  861.     $table($name).title         1,0 -cspan 4 \
  862.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  863.     $table($name).button_done     $row,3 -reqwidth .7i -anchor e
  864.     blt_table column $table($name) configure 1 -padx 5
  865.     blt_table row $table($name) configure all -pady 5
  866.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  867.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  868.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  869.     blt_table row $table($name) configure { $row } -height {}
  870. }
  871.  
  872. proc ResetCrosshairs {} {
  873.     global xhairsOptions xhairsDefaults graph interp
  874.  
  875.     RGBColorReset crosshairs -color $xhairsOptions(-color)
  876.     IntReset crosshairs -dashes $xhairsOptions(-dashes)
  877.     IntReset crosshairs -linewidth $xhairsOptions(-linewidth)
  878.     BooleanReset crosshairs -mapped $xhairsOptions(-mapped)
  879.     EntryReset crosshairs -position $xhairsOptions(-position)
  880.     send $interp $graph crosshairs configure $xhairsDefaults
  881. }
  882.  
  883. proc SetCrosshairs { option value } {
  884.     global graph interp
  885.     send $interp [list $graph crosshairs configure $option $value]
  886. }
  887.  
  888. proc GetCrosshairs {} {
  889.     global graph interp
  890.     send $interp [list $graph crosshairs configure]
  891. }
  892.  
  893. proc ConfigureCrosshairs {} {
  894.     global xhairsOptions xhairsDefaults 
  895.     global table row column setProc getProc
  896.  
  897.     if { [info command .crosshairs] == ".crosshairs" } {
  898.     destroy .crosshairs
  899.     return
  900.     }
  901.     set name crosshairs
  902.     set row 2
  903.     set column 1
  904.     set setProc($name) SetCrosshairs
  905.     set getProc($name) GetCrosshairs
  906.  
  907.     GetOptions [$getProc($name)] xhairsOptions xhairsDefaults
  908.     set table($name) .crosshairs
  909.     toplevel $table($name)
  910.     wm title .$name "Crosshairs Configuration"
  911.  
  912.     frame $table($name).frame -relief groove -bd 2
  913.     label $table($name).title -text "Crosshairs Configuration Options"
  914.  
  915.     RGBColorControl crosshairs -color $xhairsOptions(-color)
  916.     IntControl crosshairs -dashes 0 10 $xhairsOptions(-dashes)
  917.     IntControl crosshairs -linewidth 0 10 $xhairsOptions(-linewidth)
  918.     BooleanControl crosshairs -mapped $xhairsOptions(-mapped)
  919.     EntryControl crosshairs -position $xhairsOptions(-position)
  920.  
  921.     button $table($name).button_done -text "done" \
  922.     -command "destroy .$name; set varCrosshairs 0"
  923.     button $table($name).button_reset -text "reset" \
  924.     -command "ResetCrosshairs"
  925.     incr row
  926.     blt_table $table($name) \
  927.     $table($name).frame 0,0 -cspan 7 -rspan $row -fill both \
  928.     -padx 4 -pady 4 \
  929.     $table($name).title         1,0 -cspan 7 \
  930.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  931.     $table($name).button_done    $row,3 -reqwidth .7i -anchor e
  932.     blt_table column $table($name) configure 1 -padx 5
  933.     blt_table row $table($name) configure all -pady 5
  934.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  935.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  936. }
  937.  
  938.  
  939. proc ResetPostScript {} {
  940.     global psOptions psDefaults graph interp
  941.  
  942.     EntryReset postscript -colormap $psOptions(-colormap)
  943.     EntryReset postscript -colormode $psOptions(-colormode)
  944.     EntryReset postscript -fontmap $psOptions(-fontmap)
  945.     BooleanReset postscript -landscape $psOptions(-landscape)
  946.     AnchorReset postscript -pageanchor $psOptions(-pageanchor)
  947.     IntReset postscript -pageheight $psOptions(-pageheight)
  948.     IntReset postscript -pagewidth $psOptions(-pagewidth)
  949.     IntReset postscript -pagex $psOptions(-pagex)
  950.     IntReset postscript -pagey $psOptions(-pagey)
  951.     send $interp $graph psconfigure $psDefaults
  952. }
  953.  
  954. proc SetPostScript { option value } {
  955.     global graph interp
  956.     send $interp [list $graph psconfigure $option $value]
  957. }
  958.  
  959. proc GetPostScript {} {
  960.     global graph interp
  961.     send $interp [list $graph psconfigure]
  962. }
  963.  
  964. proc ConfigurePostScript {} {
  965.     global psOptions psDefaults 
  966.     global table row column setProc getProc
  967.  
  968.     if { [info command .postscript] == ".postscript" } {
  969.     destroy .postscript
  970.     return
  971.     }
  972.     set name postscript
  973.     set row 2
  974.     set column 1
  975.     set setProc($name) SetPostScript
  976.     set getProc($name) GetPostScript
  977.  
  978.     GetOptions [$getProc($name)] psOptions psDefaults
  979.     set table($name) .postscript
  980.     toplevel $table($name)
  981.     wm title .$name "PostScript Configuration"
  982.     
  983.     frame $table($name).frame -relief groove -bd 2
  984.     label $table($name).title -text "PostScript Configuration Options"
  985.  
  986.     EntryControl postscript -colormap $psOptions(-colormap)
  987.     EntryControl postscript -colormode $psOptions(-colormode)
  988.     EntryControl postscript -fontmap $psOptions(-fontmap)
  989.     BooleanControl postscript -landscape $psOptions(-landscape)
  990.     AnchorControl postscript -pageanchor $psOptions(-pageanchor)
  991.     IntControl postscript -pageheight 0 900 $psOptions(-pageheight)
  992.     IntControl postscript -pagewidth 0 900 $psOptions(-pagewidth)
  993.     IntControl postscript -pagex 0 900 $psOptions(-pagex)
  994.     IntControl postscript -pagey 0 900 $psOptions(-pagey)
  995.  
  996.     button $table($name).button_done -text "done" \
  997.     -command "destroy .$name; set varPostScript 0"
  998.     button $table($name).button_reset -text "reset" \
  999.     -command "ResetPostScript"
  1000.     incr row
  1001.     blt_table $table($name) \
  1002.     $table($name).frame 0,0 -cspan 7 -rspan $row -fill both \
  1003.     -padx 4 -pady 4 \
  1004.     $table($name).title         1,0 -cspan 7 \
  1005.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  1006.     $table($name).button_done    $row,3 -reqwidth .7i -anchor e
  1007.     blt_table column $table($name) configure 1 -padx 5
  1008.     blt_table row $table($name) configure all -pady 5
  1009.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  1010.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  1011. }
  1012.  
  1013.  
  1014. proc ResetElement {} {
  1015.     global elemOptions elemDefaults element graph interp class
  1016.  
  1017.     RGBColorReset element -activebackground $elemOptions(-activebackground)
  1018.     RGBColorReset element -activeforeground $elemOptions(-activeforeground)
  1019.     RGBColorReset element -background $elemOptions(-background)
  1020.     EntryReset element -data $elemOptions(-data)
  1021.     RGBColorReset element -foreground $elemOptions(-foreground)
  1022.     EntryReset element -label $elemOptions(-label)
  1023.     MapXAxisReset element -mapx $elemOptions(-mapx)
  1024.     MapYAxisReset element -mapy $elemOptions(-mapy)
  1025.     EntryReset element -xdata $elemOptions(-xdata)
  1026.     EntryReset element -ydata $elemOptions(-ydata)
  1027.  
  1028.     IntReset element -borderwidth $elemOptions(-borderwidth)
  1029.     if { $class == "Blt_graph" } {
  1030.     IntReset element -activelinewidth $elemOptions(-activelinewidth)
  1031.     IntReset element -dashes $elemOptions(-dashes)
  1032.     IntReset element -linewidth $elemOptions(-linewidth)
  1033.     TraceReset element -trace  $elemOptions(-trace)
  1034.     SymbolReset element -symbol $elemOptions(-symbol)
  1035.     FloatReset element -scale 0.01 $elemOptions(-scale)
  1036.     } else {
  1037.     ReliefReset element -relief $elemOptions(-relief)
  1038.     BooleanReset element -stacked $elemOptions(-stacked)
  1039.     EntryReset element -stipple $elemOptions(-stipple)
  1040.     } 
  1041.     send $interp $graph element configure $element $elemDefaults
  1042. }
  1043.  
  1044. proc SetElement { option value } {
  1045.     global graph element interp
  1046.  
  1047.     send $interp [list $graph element configure $element $option $value]
  1048. }
  1049.  
  1050. proc GetElement {} {
  1051.     global graph element interp
  1052.  
  1053.     send $interp [list $graph element configure $element]
  1054. }
  1055.  
  1056. proc GetElementNames {} {
  1057.     global graph element interp
  1058.  
  1059.     send $interp [list $graph element names]
  1060. }
  1061.  
  1062. proc SetElemOptions {} {
  1063.     global elemOptions elemDefaults graph element 
  1064.  
  1065.     GetOptions [GetElement] elemOptions elemDefaults
  1066.     ResetElement 
  1067. }
  1068.  
  1069. proc ConfigureElement {} {
  1070.     global elemOptions elemDefaults class
  1071.     global table graph row column element setProc getProc 
  1072.         
  1073.     set elements [lsort [GetElementNames]]
  1074.     if { [llength $elements] < 1 } {
  1075.     return
  1076.     }
  1077.     set element [lindex $elements 0]
  1078.     GetOptions [GetElement] elemOptions elemDefaults
  1079.  
  1080.     set name element
  1081.     if { [info command .$name] == ".$name" } {
  1082.     destroy .$name
  1083.     return
  1084.     }
  1085.     set setProc($name) SetElement
  1086.     set getProc($name) GetElement
  1087.  
  1088.     set table($name) .$name
  1089.     toplevel $table($name)
  1090.     wm title .$name "Element Configuration"
  1091.  
  1092.     frame $table($name).frame -relief groove -bd 2
  1093.     label $table($name).title -text "Element Configuration Options"
  1094.  
  1095.     set count 0
  1096.     label $table($name).name -text "Elements:"
  1097.     frame $table($name).elements 
  1098.     set frame $table($name).elements
  1099.     foreach i $elements {
  1100.     radiobutton $frame.rbutton_$i -variable element -value $i -text $i \
  1101.         -command "SetElemOptions"
  1102.     blt_table $frame $frame.rbutton_$i $count/2,$count%2 -anchor w
  1103.     incr count
  1104.     }
  1105.  
  1106.     set row 3
  1107.     set column 1
  1108.     RGBColorControl element -activebackground $elemOptions(-activebackground)
  1109.     RGBColorControl element -activeforeground $elemOptions(-activeforeground)
  1110.     if { $class == "Blt_graph" } {
  1111.     IntControl element -activelinewidth 0 10 $elemOptions(-activelinewidth)
  1112.     RGBColorControl element -background $elemOptions(-background)
  1113.     IntControl element -borderwidth 0 10 $elemOptions(-borderwidth)
  1114.     IntControl element -dashes 0 10 $elemOptions(-dashes)
  1115.     EntryControl element -data $elemOptions(-data)
  1116.     RGBColorControl element -foreground $elemOptions(-foreground)
  1117.     EntryControl element -label $elemOptions(-label)
  1118.     IntControl element -linewidth 0 10 $elemOptions(-linewidth)
  1119.     MapXAxisControl element -mapx $elemOptions(-mapx)
  1120.     MapYAxisControl element -mapy $elemOptions(-mapy)
  1121.     TraceControl element -trace  $elemOptions(-trace)
  1122.     SymbolControl element -symbol $elemOptions(-symbol)
  1123.     FloatControl element -scale 0 300 0.01 $elemOptions(-scale)
  1124.     EntryControl element -xdata $elemOptions(-xdata)
  1125.     EntryControl element -ydata $elemOptions(-ydata)
  1126.     } else {
  1127.     RGBColorControl element -background $elemOptions(-background)
  1128.     IntControl element -borderwidth 0 10 $elemOptions(-borderwidth)
  1129.     EntryControl element -data $elemOptions(-data)
  1130.     RGBColorControl element -foreground $elemOptions(-foreground)
  1131.     EntryControl element -label $elemOptions(-label)
  1132.     MapXAxisControl element -mapx $elemOptions(-mapx)
  1133.     MapYAxisControl element -mapy $elemOptions(-mapy)
  1134.     ReliefControl element -relief $elemOptions(-relief)
  1135.     BooleanControl element -stacked $elemOptions(-stacked)
  1136.     EntryControl element -stipple $elemOptions(-stipple)
  1137.     EntryControl element -xdata $elemOptions(-xdata)
  1138.     EntryControl element -ydata $elemOptions(-ydata)
  1139.     }
  1140.     button $table($name).button_done -text "done" \
  1141.     -command "destroy .$name; set varElement 0"
  1142.     button $table($name).button_reset -text "reset" \
  1143.     -command "ResetElement"
  1144.     incr row
  1145.     blt_table $table($name) \
  1146.     $table($name).frame 0,0 -cspan 14 -rspan $row -fill both -padx 4 \
  1147.     -pady 4 \
  1148.     $table($name).title         1,0 -cspan 14 \
  1149.     $table($name).name        2,1 -anchor e \
  1150.     $table($name).elements     2,2 -cspan 2 -fill x \
  1151.     $table($name).button_reset     $row,$column+1 -reqwidth .7i -anchor w \
  1152.     $table($name).button_done     $row,$column+2 -reqwidth .7i -anchor e
  1153.     blt_table column $table($name) configure { 1 5 } -padx 5
  1154.     blt_table row $table($name) configure all -pady 5
  1155.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  1156.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  1157.     blt_table row $table($name) configure { $row } -height {}
  1158. }
  1159.  
  1160. if { $argc != 2 } {
  1161.     error "usage: grconf interp window"
  1162. }
  1163. set interps [lsort [winfo interps]]
  1164.  
  1165. set row 2
  1166. set column 0
  1167.  
  1168. foreach i { General Element Axis Legend Crosshairs PostScript } {
  1169.     checkbutton .cbutton_$i \
  1170.     -text $i \
  1171.     -command "Configure$i" \
  1172.     -relief flat \
  1173.     -variable var$i
  1174.     blt_table . \
  1175.     .cbutton_$i $row,$column -anchor w  -cspan 2 
  1176.     incr row
  1177. }
  1178. label .title -text "Graph Configure Utility"
  1179. message .msg -text "...configuring \"[lindex $argv 1]\"" -aspect 5000
  1180. label .logo -bitmap BLT
  1181. button .quit -text "quit" -command "destroy ."
  1182. blt_table . \
  1183.     .title 0,0 -fill both -cspan 2 \
  1184.     .msg   1,0 -cspan 2 -fill both  \
  1185.     .logo  $row,$column \
  1186.     .quit  $row,$column+1 -reqwidth .75i
  1187.  
  1188.  
  1189. GraphConfigure [lindex $argv 0] [lindex $argv 1]
  1190.  
  1191. #debug 50
  1192.  
  1193.